home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).adf / BootX / Installer.script < prev   
Text File  |  1993-03-09  |  5KB  |  241 lines
  1.  
  2. ; $VER: Install BootX 2.00 (18.9.92)
  3. ;
  4. ;    Installer script for BootX.
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialize messages.
  10.  
  11.     (set Language 3)
  12.  
  13.     (set #WrongKickStart "\nYou must be using at least KickStart 2.04 to run this version of BootX.")
  14.     (set #CopyingReqTools "Copying ReqTools.library to Libs:")
  15.     (set #CopyingPowerPacker "Copying PowerPacker.library to Libs:")
  16.     (set #CopyingExplode "Copying Explode.library to Libs:")
  17.     (set #WhichLanguage "\nWhich languages should be installed ?\n")
  18.     (set #WhichLanguageHelp
  19.       (cat "\n"
  20.            "The Amiga can be operated in many different"
  21.            "languages. If you want BootX to use the same"
  22.            "language as the Amiga Workbench then a catalog"
  23.            "file must be copied to your system disk for"
  24.            "each language supported.\n"
  25.            "\n"
  26.            "To reduce the amount of space consumed by the"
  27.            "language files, you can select to have only the"
  28.            "files of specific languages copied.\n"
  29.            "\n"
  30.            "Simply check the boxes of the languages you wish"
  31.            "to have available on your system.\n"
  32.            "\n"
  33.            @askoptions-help
  34.       )
  35.     )
  36.  
  37.  
  38. (procedure InstallLanguages
  39. (
  40.     (set n 0)
  41.     (while (set language (select n "Dansk" "Deutsch" "English" "Français" "Italiano" "Nederlands" "Norsk" "Svenska" ""))
  42.     (
  43.       (if (in SelectedLanguages n)
  44.       (
  45.         (if (<> 2 n)
  46.         (
  47.           (makedir (cat "SYS:Locale/Catalogs/" language))
  48.           (copyfiles (source (cat "Locale/Catalogs/" language))
  49.                  (dest   (cat "SYS:Locale/Catalogs/" language))
  50.                  (all))
  51.         ))
  52.       ))
  53.       (set n (+ n 1))
  54.     ))
  55. ))
  56.  
  57. ; Welcome the user.
  58.  
  59.     (complete 0)
  60.     (welcome)
  61.  
  62. ; Make sure we are running under KickStart 2.04.
  63.  
  64.     (if (< (/ (getversion) 65536) 37)
  65.       (abort #WrongKickStart)
  66.     )
  67.  
  68. ; Copy the BootX executable and support files.
  69.  
  70.     (set Path.Source
  71.       (tackon
  72.         (askdir
  73.           (prompt "\nSelect the drawer where I can find the uninstalled BootX.\n")
  74.           (help @askdir-help)
  75.           (default (pathonly @icon))
  76.         )
  77.         ""
  78.       )
  79.     )
  80.  
  81.     (set Path.Dest
  82.       (tackon
  83.         (askdir
  84.           (prompt "\nSelect the drawer where you want the BootX program "
  85.             "and its support files to reside.\n")
  86.           (help @askdir-help)
  87.           (default "Work:Utilities")
  88.         )
  89.         ""
  90.       )
  91.     )
  92.  
  93.     (copyfiles
  94.       (prompt "\nSelect which files to install:\n")
  95.       (help @copyfiles-help)
  96.       (source Path.Source)
  97.       (dest   Path.Dest)
  98.       (choices "BootX"
  99.            "BootX.Alarm"
  100.            "BootX.BBLib"
  101.            "BootX.Brain"
  102.            "BootX.Guide"
  103.            "BootX.Recog")
  104.       (infos)
  105.       (confirm)
  106.     )
  107.  
  108.     (complete 70)
  109.  
  110. ; Copy the BootX.doc and BootX.history files.
  111.  
  112.     (if
  113.       (askbool
  114.         (prompt "\nDo you wish to install the BootX documentation ?")
  115.         (help @askbool_help)
  116.         (default 1)
  117.       )
  118.  
  119.       (
  120.         (set Path.Doc
  121.           (tackon
  122.         (askdir
  123.           (prompt "\nSelect the drawer where you want the BootX "
  124.               "documentation to reside.\n")
  125.           (help @askdir-help)
  126.           (default Path.Dest)
  127.         )
  128.         ""
  129.           )
  130.         )
  131.  
  132.         (copyfiles
  133.           (prompt "\nSelect which files to install:\n")
  134.           (help @copyfiles-help)
  135.           (source Path.Source)
  136.           (dest   Path.Doc)
  137.           (choices "BootX.doc"
  138.                "BootX.History"
  139.                "BootX.Recog.History")
  140.           (infos)
  141.           (confirm)
  142.         )
  143.       )
  144.     )
  145.  
  146.     (complete 90)
  147.  
  148. ; Copy the ReqTools library.
  149.  
  150.     (message
  151.       "\n"
  152.       "BootX requires the ReqTools.library to run.\n"
  153.       "\n"
  154.       "Before I install it I'll check to see if you have already a "
  155.       "more recent version of the ReqTools.library.\n"
  156.       "If so, I will not overwrite it.\n"
  157.     )
  158.  
  159.     (copylib
  160.       (prompt "\n" #CopyingReqTools)
  161.       (help @copylib-help)
  162.       (source "Libs/reqtools.library")
  163.       (dest "Libs:")
  164.       (confirm)
  165.     )
  166.  
  167. ; Copy the PowerPacker library.
  168.  
  169.     (message
  170.       "\n"
  171.       "BootX can load and save its external files using the "
  172.       "PowerPacker.library by Nico François\n"
  173.       "\n"
  174.       "Before I install it I'll check to see if you have already a "
  175.       "more recent version of the PowerPacker.library.\n"
  176.       "If so, I will not overwrite it.\n"
  177.     )
  178.  
  179.     (copylib
  180.       (prompt "\n" #CopyingPowerPacker)
  181.       (help @copylib-help)
  182.       (source "Libs/powerpacker.library")
  183.       (dest "Libs:")
  184.       (confirm)
  185.     )
  186.  
  187. ; Copy the Explode library.
  188.  
  189.     (message
  190.       "\n"
  191.       "To decrunch and check Imploder crunched executables "
  192.       "BootX requires the Explode.library v6.0 or higher.\n"
  193.       "\n"
  194.       "Before I install it I'll check to see if you have already a "
  195.       "more recent version of the Explode.library.\n"
  196.       "If so, I will not overwrite it.\n"
  197.     )
  198.  
  199.     (copylib
  200.       (prompt "\n" #CopyingExplode)
  201.       (help @copylib-help)
  202.       (source "Libs/explode.library")
  203.       (dest "Libs:")
  204.       (confirm)
  205.     )
  206.  
  207.     (complete 100)
  208.  
  209. ; Install the language catalogs (if running on WorkBench 2.1 or higher)
  210.  
  211.     (if (exists "SYS:Locale/Catalogs")
  212.     (
  213.       (user 2)
  214.  
  215.       (set SelectedLanguages
  216.         (askoptions
  217.            (prompt #WhichLanguage)
  218.            (help   #WhichLanguageHelp)
  219.            (choices "Dansk"
  220.             "Deutsch"
  221.             "English"
  222. ;            "Español"
  223.             "Français"
  224.             "Italiano"
  225.             "Nederlands"
  226.             "Norsk"
  227. ;            "Português"
  228.             "Svenska")
  229.            (default 4)
  230.         ))
  231.  
  232.       (user UserLevel.old)
  233.  
  234.       (InstallLanguages)
  235.     ))
  236.  
  237. ; Cleanup
  238.  
  239.     (set @default_dest Path.Dest)
  240.     (exit)
  241.